This dataset is described on pp. 7-8 of the textbook. You may load it from the dataset URL linked above or from the resampledata package.
library(tidyverse)
DATA <- read_csv("https://raw.githubusercontent.com/STAT-JET-ASU/Datasets/master/Chihara/GSS2002.csv")
glimpse(DATA)Observations: 2,765
Variables: 21
$ ID <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, …
$ Region <chr> "South Central", "South Central", "South Central", "Sou…
$ Gender <chr> "Female", "Male", "Female", "Female", "Male", "Male", "…
$ Race <chr> "White", "White", "White", "White", "White", "White", "…
$ Education <chr> "HS", "Bachelors", "HS", "Left HS", "Left HS", "HS", "B…
$ Marital <chr> "Divorced", "Married", "Separated", "Divorced", "Divorc…
$ Religion <chr> "Inter-nondenominational", "Protestant", "Protestant", …
$ Happy <chr> "Pretty happy", "Pretty happy", NA, NA, NA, "Pretty hap…
$ Income <chr> "30000-34999", "75000-89999", "35000-39999", "50000-599…
$ PolParty <chr> "Strong Rep", "Not Str Rep", "Strong Rep", "Ind, Near D…
$ Politics <chr> "Conservative", "Conservative", NA, NA, NA, "Conservati…
$ Marijuana <chr> NA, "Not legal", NA, NA, NA, NA, NA, NA, "Legal", NA, N…
$ DeathPenalty <chr> "Favor", "Favor", NA, NA, NA, "Favor", NA, NA, "Favor",…
$ OwnGun <chr> "No", "Yes", NA, NA, NA, "Yes", NA, NA, "Yes", NA, NA, …
$ GunLaw <chr> "Favor", "Oppose", NA, NA, NA, "Oppose", NA, NA, "Oppos…
$ SpendMilitary <chr> "Too little", "About right", NA, "About right", NA, "To…
$ SpendEduc <chr> "Too little", "Too little", NA, "Too little", NA, "Too …
$ SpendEnv <chr> "About right", "About right", NA, "Too little", NA, "To…
$ SpendSci <chr> "About right", "About right", NA, "Too little", NA, "To…
$ Pres00 <chr> "Bush", "Bush", "Bush", NA, NA, "Bush", "Bush", "Bush",…
$ Postlife <chr> "Yes", "Yes", NA, NA, NA, "Yes", NA, NA, "Yes", NA, NA,…head(DATA)# A tibble: 6 x 21
ID Region Gender Race Education Marital Religion Happy Income PolParty
<dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 1 South… Female White HS Divorc… Inter-n… Pret… 30000… Strong …
2 2 South… Male White Bachelors Married Protest… Pret… 75000… Not Str…
3 3 South… Female White HS Separa… Protest… <NA> 35000… Strong …
4 4 South… Female White Left HS Divorc… Protest… <NA> 50000… Ind, Ne…
5 5 South… Male White Left HS Divorc… Protest… <NA> 40000… Ind
6 6 South… Male White HS Divorc… Catholic Pret… 40000… Ind, Ne…
# … with 11 more variables: Politics <chr>, Marijuana <chr>,
# DeathPenalty <chr>, OwnGun <chr>, GunLaw <chr>, SpendMilitary <chr>,
# SpendEduc <chr>, SpendEnv <chr>, SpendSci <chr>, Pres00 <chr>,
# Postlife <chr>